
10 DIMP(15),N(2),M(2):C=15:D=C
50 GOSUB1000:GOSUB950:PRINTCHR$(11):FORA=0TO15:P(A)=0:NEXT:FORA=0TO2
53 N(A)=10+A:NEXT:FORA=0TO2
55 B=INT(9*RND(1)):N(A)=B:IFN(1)=N(0)THEN55
60 IFN(2)=N(1)ORN(2)=N(0)THEN55
65 NEXT:D=1
80 PRINT"Your Guess ?":FORY=12340TO13260STEP40:IFPEEK(Y)=63THENX=Y
85 NEXT:FORA=0TO2
90 GOSUB1110:IFVAL(E$)<0ORVAL(E$)>9THEN90
95 M(A)=VAL(E$):POKE(X+2+A),(M(A)+48):NEXTA
100 IFM(0)=M(1)ORM(0)=M(2)ORM(1)=M(2)THENGOSUB940:GOSUB960:GOTO80
110 P(D)=(M(0)*100)+(M(1)*10)+M(2):GOSUB940
115 PRINTCHR$(11)"   Guess No.       Hit, Close, Miss":PRINT
120 FORB=1TOD:H=0:K=0:L=5:M(0)=INT(P(B)/100):M(1)=INT(P(B)/10)-(M(0)*10)
125 M(2)=P(B)-((M(0)*100)+(M(1)*10))
130 FORX=0TO2:IFN(X)=M(X)THENH=H+1
135 NEXT:FORX=0TO2:FORY=0TO2:IFN(X)=M(Y)THENK=K+1
140 NEXT:NEXT:K=K-H:GOSUB950:IFB>9THENL=L-1
145 PRINTTAB(L)B;SPC(3);M(0);M(1);M(2);"   ";H;SPC(4);K;"    ";3-(K+H)
146 IFH=3THENP(0)=1
150 NEXT:IFP(0)=1THEN980
155 IFD=15THENPRINT:PRINT"Bad Luck ! It was";N(0);N(1);N(2):GOSUB960
156 IFD=15THENPRINT:PRINT:INPUT"RTN..";X:GOTO50
160 D=D+1:GOTO80
940 FORA=200TO1STEP-5:SOUND(3,A):NEXT:RETURN
950 FORA=30TO1STEP-1:SOUND(2,A):NEXT:RETURN
960 FORY=1TO200:SOUND((200/Y),Y):NEXT:RETURN
980 FORA=1TO2:FORY=500TO1STEP-10:SOUND(3,Y):NEXT:NEXT:PRINT
990 PRINTTAB(7)"Well done, you found it !":PRINT:INPUT"RTN..";X:GOTO50
1000 PRINTCHR$(11):PRINT" MASTERGUESS    Digital Output 1984":PRINT:PRINT
1010 PRINT"    See packaging for instructions":PRINT:PRINT:PRINT
1020 PRINTTAB(12)"Best Score =";C:PRINT:PRINTTAB(12